home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE15 / CPPCLASS / OWLDEL / COMslidr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-17  |  1.9 KB  |  76 lines
  1. unit COMslidr;
  2.  
  3. interface
  4. uses COMOWL, Classes;
  5.  
  6. type
  7. TCOMSliderInterface = class(TCOMInterface)
  8.  
  9.     function  GetPos : integer;       virtual; cdecl; abstract;
  10.     procedure SetPos(pos : integer);  virtual; cdecl; abstract;
  11.     function  GetMinRange : integer;  virtual; cdecl; abstract;
  12.     function  GetMaxRange : integer;  virtual; cdecl; abstract;
  13.     procedure SetMinRange(min: integer); virtual; cdecl; abstract;
  14.     procedure SetMaxRange(max: integer); virtual; cdecl; abstract;
  15.     procedure SetTicGap(ticGap: integer); virtual; cdecl; abstract;
  16.     {No virtual functions below this point}
  17.  
  18.     function  IGetPos : integer;
  19.     procedure ISetPos(pos : integer);
  20.     function  IGetMinRange : integer;
  21.     function  IGetMaxRange : integer;
  22.     procedure ISetMinRange(min: integer);
  23.     procedure ISetMaxRange(max: integer);
  24.     procedure ISetTicGap(ticGap: integer);
  25.  
  26.  
  27.  
  28. public
  29.     procedure SetOnChange(func : TCPPNotifyEvent); virtual; cdecl; abstract;
  30.     {OK, add some virtual functions from here}
  31.  
  32.     property Position  : integer read IGetPos write ISetPos;
  33.     property Min       : integer read IGetMinRange write ISetMinRange;
  34.     property Max       : integer read IGetMaxRange write ISetMaxRange;
  35.     property TicGap    : integer write ISetTicGap;
  36. end;
  37.  
  38. implementation
  39.  
  40. function  TCOMSliderInterface.IGetPos : integer;
  41. begin
  42.  Result := GetPos;
  43. end;
  44.  
  45. procedure TCOMSliderInterface.ISetPos(pos : integer);
  46. begin
  47.  SetPos(pos);
  48. end;
  49.  
  50. function  TCOMSliderInterface.IGetMinRange : integer;
  51. begin
  52.  Result := GetMinRange;
  53. end;
  54. function  TCOMSliderInterface.IGetMaxRange : integer;
  55. begin
  56.   Result := GetMaxRange;
  57. end;
  58.  
  59. procedure TCOMSliderInterface.ISetMinRange(min: integer);
  60. begin
  61.   SetMinRange(min);
  62. end;
  63.  
  64. procedure TCOMSliderInterface.ISetMaxRange(max: integer);
  65. begin
  66.   SetMaxRange(max);
  67. end;
  68.  
  69. procedure TCOMSliderInterface.ISetTicGap(ticGap: integer);
  70. begin
  71.   SetTicGap(ticGap);
  72. end;
  73.  
  74. end.
  75.  
  76.